home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_A.d64 / music-demo #1-6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.6 KB  |  49 lines
  1. 10 forx=679to679+74:reada:pokex,a:nextx
  2. 20 poke 53281,15:poke 53280,14:print"[144][147]";chr$(14):poke56,128:clr
  3. 30 sys679"-demo #1-6",8,1
  4. 40 sys 37925:sys 37700,0
  5. 50 gosub 1000:gosub 20000
  6. 60 geta$:ifval(a$)<1orval(a$)>9then60
  7. 70 forx=0to2:poke54272+4+x*7,0:poke54272+36+x*7,0:nextx
  8. 80 sys 37925:sys 37700,val(a$)-1
  9. 90 on val(a$) gosub 1000,2000,3000,4000,5000,6000,7000,8000,9000
  10. 100 gosub 20000:goto 60
  11. 1000 print"[147]    '[195]razy little [212]hing [195]alled [204]ove'"
  12. 1010 print"        [205]usic by [198]reddie [205]ercury"
  13. 1020 return
  14. 2000 print"[147]          '[215]hen [201]'m [211]ixty [198]our'"
  15. 2010 print" [205]usic by [202]ohn [204]ennon & [208]aul [205]c[195]artney"
  16. 2020 return
  17. 3000 print"[147]              '[200]oney [208]ie'"
  18. 3010 print" [205]usic by [202]ohn [204]ennon & [208]aul [205]c[195]artney"
  19. 3020 return
  20. 4000 print"[147]              '[217]esterday'"
  21. 4010 print" [205]usic by [202]ohn [204]ennon & [208]aul [205]c[195]artney"
  22. 4020 return
  23. 5000 print"[147]            [196]emo-[205]usic [206]o.1"
  24. 5010 print"       [205]usic by [200]arald [210]osenfeldt"
  25. 5020 return
  26. 6000 print"[147]            [196]emo-[205]usic [206]o.2"
  27. 6010 print"       [205]usic by [200]arald [210]osenfeldt"
  28. 6020 return
  29. 7000 print"[147]            [196]emo-[205]usic [206]o.3"
  30. 7010 print"       [205]usic by [200]arald [210]osenfeldt"
  31. 7020 return
  32. 8000 print"[147]             '[208]alm [204]eaf [210]ag'"
  33. 8010 print"          [205]usic by [211]cott [202]oplin"
  34. 8020 return
  35. 9000 print"[147]                '[195]leopha'"
  36. 9010 print"          [205]usic by [211]cott [202]oplin"
  37. 9020 return
  38. 20000 print"    [208]rogrammed by [200]arald [210]osenfeldt"
  39. 20010 print"      with the '[205][213][211][201][195] [193][211][211][197][205][194][204][197][210]'"
  40. 20020 print"        [195]opyright ([195]) in 1987"
  41. 20030 print"              [208]ress 1-9"
  42. 20040 print"   [212]his program has been written for"
  43. 20050 print"  [211]tereo-[211][201][196] from 64'er-magazin  11/86"
  44. 20060 return
  45. 32000 data169,0,133,10,32,212,225,169,1,162,8,160,0,32,186,255,32,192,255,162
  46. 32001 data1,32,198,255,32,207,255,133,251,32,207,255,133,252,32,207,255,160,0
  47. 32002 data72,120,169,48,133,1,104,145,251,169,55,133,1,88,230,251,208,2,230,252
  48. 32003 data32,183,255,41,64,240,224,32,204,255,169,1,32,195,255,96
  49.